home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / megatrek.zip / DESTRUCT.ASC < prev    next >
Text File  |  1982-07-03  |  1KB  |  24 lines
  1. 50000 IF D4(11)=0 THEN 50030
  2. 50010 PRINT"COMPUTER DAMAGED - CANNOT EXECUTE DESTRUCT SEQUENCE"
  3. 50020 GOTO 70
  4. 50030 PRINT:PRINT"    ---WORKING---"
  5. 50040 PRINT"IDENTIFICATION-POSITIVE"
  6. 50050 PRINT"SELF-DESTRUCT-SEQUENCE-ACTIVATED":J=3
  7. 50060 FOR I=10 TO 6 STEP-1:PRINT SPC(J);I:GOSUB 50210:J=J+3:NEXT
  8. 50070 PRINT"ENTER-YOUR-MISSION-PASSWORD-TO-CONTINUE"
  9. 50080 PRINT"SELF-DESTRUCT-SEQUENCE-OTHERWISE-DESTRUCT"
  10. 50090 PRINT"SEQUENCE-WILL-BE-ABORTED"
  11. 50100 INPUT B$:IF B$<>X$ THEN 50190
  12. 50110 PRINT"PASSWORD-ACCEPTED":J=10
  13. 50120 FOR I=5 TO 1 STEP-1:PRINT SPC(J);I:GOSUB 50210:J=J+3:NEXT
  14. 50130 PRINT:PRINT"*****ENTROPY OF ";S5$;" MAXIMIZED*****"
  15. 50140 PRINT:IF K3=0 THEN 50180
  16. 50150 W=20*E1:FOR L=1 TO K3:IF K6(L)*K7(L)>W THEN 50170
  17. 50160 A5=K4(L):A6=K5(L):T2$=Q$(A5,A6):GOSUB 6000
  18. 50170 NEXT L
  19. 50180 F9=10:CHAIN MERGE "END.ASC",50000!,ALL,DELETE 50000-60000
  20. 50190 PRINT"PASSWORD-REJECTED"
  21. 50200 PRINT"CONTINUITY-EFFECTED":PRINT:GOTO 70
  22. 50210 K=12345:FOR M=1 TO 90:K=K+1:NEXT M:RETURN
  23. 60000 REM end overlay
  24. CT